|
Autocad VBA : Probleme mit Excel
fuchsi am 25.11.2004 um 08:19 Uhr (0)
Dim Excel as Object Dim XLS_Datei as workbook Set Excel = CreateObject("Excel.Application") Set XLS_Datei = Excel.workbooks.open(Pfad) das nennt man als "late Binding", (zum gegensatz "Early Binding" set excel = new excel.application) allerdings musst du dabei um wirklich Versionsunabhängig zu sein, auch die "Dim XLS_Datei as workbook" zu "Dim XLS_Datei as Object" ersetzten, da selbst diese Dimensionierungen Versionsabhängig sein könnten. Weiters würde ich unter den Verweisen auch den Verweis auf Excel en ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : copy Funktion AutoCAD-Excel
fuchsi am 02.12.2004 um 13:59 Uhr (0)
nun ja das liegt daran, dass du autocad vba bist und nicht in excel vba aber ein bisschen Kreativität sollte doch vorhanden sein z.B: Dim excel As New excel.Application excel.Visible = True excel.Workbooks.Add Dim sh As Sheets Set sh = excel.ActiveWorkbook.Sheets Call sh(1).Copy(, sh(sh.Count)) damit wird die erste Seite kopiert und nach derletzten seite sh(sh.count) kopiert before wird weggelassen ------------------ WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Mit ACAD auf verschiedene Excel-Versionen zugreifen
fuchsi am 31.07.2007 um 12:22 Uhr (0)
Mach statt dem Early Binding ein Late Binding.Das heisst, wenn du mit deinem projekt fertig bis, entfernst du den Verweis auf Excel.Danach musst Du allerdings alle Variablendeklartionen umbauen.Dim Excel As ObjectSet Excel = GetObject("", "Excel.Application")Excel.Visible = Trueder Nachteil dabei ist, dass du unterm Entwickeln, die ganzen Methoden und Eigenschaften des Excel Objektes nicht siehst (dass ist beim Late Binding nun mal so). Allerings funktioniert es dann mit verschiedenen Versionen.Du musst le ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Ausführen von einem Macro aus einem anderem Modul die 2te
fuchsi am 16.04.2008 um 15:08 Uhr (0)
wie kommt denn dein programm auf diese anderen Rechner.Erstelle einfach dazu ein Setup, dass die Programme (DVB-Dateien ?) ins gewünschte Verzeichnis kopiert, eventuell in Autocad automatisch Suchpfade einträgt, oder an einer bestimmten Stelle der Registry dieses Verzeichnis hinterlegt.Das mit dem Passsowrtschutz habe ich nicht ganz verstanden. Wie geht denn sowas bei VBA ?[Diese Nachricht wurde von fuchsi am 16. Apr. 2008 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff auf excel-zeile als Datensatz per ID
fuchsi am 20.05.2008 um 13:29 Uhr (0)
Tja ich würde da einfach eine Schleife drüber programmieren, und die Namen in einem Array speichernAchtung dieses Beispiel ist in Excel-VBA geschrieben, muss eventuell für VBA unter Autocad angepasst werden !! Dim MitArbeiter() As String For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row ReDim Preserve MitArbeiter(i) MitArbeiter(i) = Cells(i, 1).Value Next------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : copy Funktion AutoCAD-Excel
fuchsi am 02.12.2004 um 10:58 Uhr (0)
bei solchen Fragen hilft der Makrorecorder in excel alles was du fernsteuern willst einfach manuell in excel durchgehen un die schritte mit dem Macrorecorder aufzeichen. den aufgezeichneten Code dann anschauen und in Autocvad VBA umsetzten Bei deiner Fragestellung kommt z.B.: folgendes raus Sub Makro1() Makro1 Makro Makro am 02.12.2004 von CCM-Client: 12027 aufgezeichnet Sheets( Tabelle1 ).Select Sheets( Tabelle1 ).Copy After:=Sheets(3) End Sub was sagt uns das: du musst nach dem after d ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : sendcommand
fuchsi am 08.10.2007 um 16:26 Uhr (0)
Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Sub[/code]Und im Excel Feld 13,4 steht wirklich dieser ganze Codeschnippsel (command "ucs" ...dann sollte es so geh ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Umfrage zu Excel-AutoCAD programm beginnt!!!!
fuchsi am 27.07.2005 um 13:49 Uhr (0)
Tja ich weiss zwar nicht was Profile IPE HEAA HEB HEM usw. bedeuten, aber von der Bedienbarkeit stört mich sofort die Dialogbox "please chose only one profile" . Da gibt doch in Windows andere Möglichkeiten (wie wärs statt Chkeckbuttons gruppierte Optionsbuttons) ------------------ Ing. Anton Fuchs WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zugriff auf excel-zeile als Datensatz per ID
fuchsi am 19.05.2008 um 14:42 Uhr (0)
wenn Du nur eineige wenige Excel zeile benötigst, könnte diese Methode passen.Solltest Du aber alle Zeilen benötigen, und darauf gezielt zugreifen wollen (ähnlich Deinem Assoc Beispiel) könnte das Mricrosoft Scripting.Dictionary Objekt interresant sein.kleines Beispiel, anstatt eine Excelliste einzulesen mache ich nur eine Schleife von 1 bis 20, wobei der Schleifenzähler i als ID herhält.1. Verweis auf Microsoft Scripting Runtime (scrrun.dll)2. Erstellen eines Klassenmodules namens Datensatz mit folgendem ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Kompilierungsfehler
fuchsi am 13.02.2004 um 13:08 Uhr (0)
hallo ich glaub nicht dass es an dem code liegt, da du schreibst das passiert nur manchamal. oft kommen so unerwartete fehlermeldungen (befehle werden angemeckert die eigentlich immer funktionieren) wenn in der vba applikation verweise (z.b.: auf excel, wotrd usw.) gesetzt werden, die auf anderen rechnern nicht vorhanden sind. schau mal in den verweisen nach, ob hier ein eintrag angekreuzt ist, wo dabeisteht NICHT VORHANDEN ------------------
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zugriff auf excel-zeile als Datensatz per ID
fuchsi am 20.05.2008 um 17:02 Uhr (0)
ist Geschmacksfrage ob man das Array gleich auf die fertige Länge dimmensioniert, oder bei Bedarf mit PRESERVE immer um eins erweitert.Wenn man z.B.: Daten aus einer sequentiellen Datei (z.B.: Textdatei, bei der man die Zeileanzahl nicht weiss) einliest, ist es halt nur mit redim preserve möglich.In deinem Fall ists wurscht, da man ja die Anzahl der Zeilen ja eh schon vorher weiss.------------------ Ing. Anton FuchsWWW.FFZELL.AT.TC
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Textdateien öffnen/drucken/schließen
fuchsi am 27.07.2005 um 15:24 Uhr (0)
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal _ lpDirectory As String, ByVal nShowCmd As Long) As Long retval = ShellExecute(Me.hwnd, "open", "d: est.xls", "-fast", "C:", 3) Mit dem kannst du beliebige Dateien (in dem fall eine Excel-Datei) mit der dafür verknüpften Anwendung starten ------------------ Ing. Anton Fuchs WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
